comment obymomi                                          version 6.00
comment *************************************************************
comment * this TACL obey file will startup the MOMI subsystem.      *
comment *                                                           *
comment * configuration information for MOMI is provided in these   *
comment *  two files:                                               *
comment *                                                           *
comment *   CONFMOMI - configuration read by MOMI after startup     *
comment *   OBYMOMI  - TACL obey file used to start or restart MOMI *
comment *                                                           *
comment * to change settings in this file, go to the section below  *
comment *  labled "set values here", check and alter values based   *
comment *  on the needs of your environment.                        *
comment *                                                           *
comment * in the file CONFMOMI, place your password and the review  *
comment *  the entire file to insure TCP/IP and other settings are  *
comment *  suitable for your environment.                           *
comment *                                                           *
comment * prior to obey'ing this file, ensure that the MEASURE      *
comment *  subsystem has been started.  below is the command used   *
comment *  from a TACL prompt to start MEASURE:                     *
comment *                                                           *
comment *    MEASCOM start meassubsys                               *
comment *                                                           *
comment *                                                           *
comment *  to start MOMI from a TACL prompt:                        *
comment *                                                           *
comment *    volume MOMI         (subvolume of MOMI files)          *
comment *    obey obymomi                                           *
comment *                                                           *
comment *                                                           *
comment * to stop momi, from a TACL prompt:                         *
comment *                                                           *
comment *    stop $momi          (use the name you selected)        *
comment *                                                           *
comment *                                                           *
comment * a stop issued on $MOMI will cause all other processes in  *
comment *  the subsystem to automatically stop themselves.  this    *
comment *  automatic shutdown takes approxmately 20-30 seconds.     *
comment *************************************************************

#frame

comment                                         == save current informat and
comment                                         ==  activate == commenting
comment                                         ==  (don't use == until tacl
comment                                         ==   informat is active)
#push #informat
#set  #informat tacl

#push #assign
#push #param                                    == save any current assign
                                                == save any current param

[#def :def_ps macro |body|                      == push & set variable
   #push %1%                                    ==  :def_ps <var> <data>
   #set  %1% %2 to *%]

==--------------------- vvv set values below here vvv -----------------------
                                                == configuration file location
:def_ps :var_config_file         confmomi

:def_ps :var_pname_momi          $momi          == momi process name

:def_ps :var_momi_cpu_primary    0              == momi cpu number primary

                                                == momi cpu number backup
                                                ==  >= 0 - cpu number
                                                ==  -1   - no backup
:def_ps :var_momi_cpu_backup     -2             ==  -2   - autoselect

                                                == TACL for startup, and MOMI
                                                ==  for operation, requires a
                                                ==  valid (or real) and
                                                ==  persistent home terminal
                                                ==  device or process.

:def_ps :var_hometerm            $ZHOME         == home terminal device

:def_ps :var_priority            170            == momi process priority

                                                == case off processor type to
                                                ==  determine type of object
[#case [#processortype [#processinfo/cpu/]]     ==  code to launch

   |9|         :def_ps :var_pgm_bwmomi  bwmomi  ==    TNS/R object (S-Series)

   |10|        :def_ps :var_pgm_bwmomi  bwmomii ==    TNS/E object (Integrity)

   |otherwise| :def_ps :var_pgm_bwmomi  bwmomix ==    TNS/X object (Intel x86)

]

                                                == if the automatic object
                                                ==  file selection does not
                                                ==  work remove the == and
                                                ==  enter the file name
                                                ==  desired

== :def_ps :var_pgm_bwmomi          bwmomi      == use TNS/R object


==--------------------- ^^^ set values above here ^^^ -----------------------

stop [:var_pname_momi]                          == stop MOMI

delay 5 seconds                                 == wait just a bit

clear all                                       == clear all assigns / params

param backupcpu      [:var_momi_cpu_backup]     == assign backup cpu

param config-file    [:var_config_file]         == configuration file name

                                                == removing the == from the
                                                ==  next line directs the
                                                ==  TCP/IP library to only
                                                ==  use DNS to resolve or
                                                ==  convert a name to an
                                                ==  IP address
                                                ==  (performance enhancement
                                                ==   if DNS servers are
                                                ==   configured for the
                                                ==   NonStop System)
== param TCPIP^RESOLVER^ORDER DNSONLY


                                                == startup MOMI
run [:var_pgm_bwmomi] / name [:var_pname_momi]       &
                      , cpu  [:var_momi_cpu_primary] &
                      , term [:var_hometerm]         &
                      , pri  [:var_priority]         &
                      , highpin ON                   &
                      , nowait / MOMI

#unframe

